home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)ge.d64 / sub hunt.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  98 lines
  1. 0 POKE55,255:POKE56,47:PRINT"[147]":V=53248:CO=54272:POKE53281,0:POKE53280,2:F=10
  2. 1 FORI=55816TO56296:POKEI,6:POKEI-CO,160:NEXT:G=0
  3. 2 POKEV+21,63:POKE2040,192:POKE2041,193:POKE2042,194:POKE2043,195:POKEV+44,7
  4. 3 POKE2044,195:POKE2045,196:POKEV+39,1:POKEV+40,14:POKEV+41,0:POKEV+42,21
  5. 4 POKEV+43,7:POKEV+29,18:POKEV+23,16:FORI=0TO318:READQ:POKE12288+I,Q:NEXT:X=26
  6. 5 Y=133:X1=29:Y1=160+INT(RND(1)*60):POKEV,X:POKEV+1,Y:D=1:POKEV+2,X1:POKEV+3,Y1
  7. 6 FORJ=0TO24:FORI=55330TO55335:POKEI+J*40,2:POKEI+J*40-CO,160:NEXTI,J
  8. 7 POKEV+5,160+INT(RND(1)*60):POKEV+4,70+INT(RND(1)*180)
  9. 8 PRINT"[188][146][157]    [146][169]":POKEV+8,210:POKEV+9,55:GOSUB80
  10. 9 POKE54296,1:POKE54278,240:POKE54276,129:TI$="000000"
  11. 10 PRINT"[157][157][157][157][157][157]TIME"
  12. 11 PRINT"[157][157]";RIGHT$(TI$,2):POKE55652+INT(F)*40,4
  13. 12 X1=X1+D*2:IFX1>240THEND=INT(RND(1)*3-3):Y1=160+INT(RND(1)*60)
  14. 13 IFX1<28THEND=INT(RND(1)*3+1):Y1=160+INT(RND(1)*60)
  15. 14 POKEV+2,X1:POKEV+3,Y1
  16. 20 PE=PEEK(197)
  17. 25 IFPE=60ANDX>60ANDX2=0THENX2=X:Y2=Y+8:G1=0:F=F-.1:POKE53273,200
  18. 26 IFX2>0THENGOSUB100
  19. 27 IFF<1THEN53
  20. 28 IFPE<>12ANDPE<>20ANDPE<>47ANDPE<>44THENPOKE54272,0:POKE54273,0:GOTO56
  21. 29 POKE54273,108:POKE54272,223
  22. 30 IFPE=12ANDY>50THENY=Y-2
  23. 40 IFPE=47ANDX>28THENX=X-4
  24. 50 IFPE=44ANDX<230THENX=X+6
  25. 51 F=F-.06:IFPE=20THENF=F-.1:G=G+2:GOTO56
  26. 53 IFY>140THEN5000
  27. 54 IFF<1THENY=Y+G:GOTO56
  28. 55 G=0:GOTO58
  29. 56 Y=Y+G:G=G+.1:IFY>140THEN5000
  30. 57 IFX>25ANDX<59ANDY>133ANDG>1.3THEN500
  31. 58 IFX>25ANDX<59ANDY>133THENG=0:F=10:Y=133:GOSUB80
  32. 59 POKEV,X:POKEV+1,Y:IFTI$="001000"THEN400
  33. 60 GOTO11
  34. 80 PRINT"[157][157][157][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
  35. 85 RETURN
  36. 100 X2=X2+.5:IFY2>140THENY2=Y2+G1/2
  37. 102 IFY2<141THENY2=Y2+G1
  38. 105 IFG1=0THENPOKE54272,0:POKE54273,40
  39. 106 G1=G1+.3
  40. 110 POKEV+7,Y2
  41. 112 POKEV+6,X2
  42. 120 IFY2>230THENY2=0:X2=0:POKEV+7,0:G1=0
  43. 125 IFPEEK(V+30)=10THEN200
  44. 126 IFPEEK(V+30)=12THEN300
  45. 130 RETURN
  46. 200 POKEV+2,0:POKEV+3,0:POKEV+10,X1:POKEV+11,Y1:POKE54296,15
  47. 210 FORI=70TO10STEP-.3:POKE54273,I:NEXT:POKE54273,0:POKE54272,0
  48. 220 FORI=1TO11:POKEV+I,0:NEXT
  49. 230 POKEV+10,0:POKEV+11,0:PRINT"[147]YOU'VE DESTROYED THE SUBMARINE!!!!!"
  50. 240 PRINT"WELL DONE!"
  51. 250 PRINT"[158]YOUR TIME WAS ";RIGHT$(TI$,2);" SECONDS"
  52. 260 GOTO5050
  53. 300 FORI=1TO11:POKEV+I,0:NEXT:POKEV+29,32:POKEV+23,32
  54. 310 POKEV+2,0:POKEV+3,0:POKEV+10,X2:POKEV+11,Y2:POKE54296,15:POKE53281,8
  55. 320 FORI=90TO0STEP-.2:POKE54273,I:POKE53280,I/10:NEXT:POKE54273,0:POKE54272,0
  56. 325 POKE53280,0:POKE53281,0:POKEV+29,0:POKEV+23,0
  57. 330 POKEV+10,0:POKEV+11,0:PRINT"[147]YOU'VE HIT THE NUCLEAR MINE!!!!!!!!!!!!"
  58. 340 PRINT"IDIOT!!!!!"
  59. 350 PRINT"[158]YOU LASTED FOR ";RIGHT$(TI$,2);" SECONDS."
  60. 360 GOTO5050
  61. 400 POKE54296,15:POKE54276,0:POKE54276,33
  62. 410 FORI=255TO0STEP-2:POKE54273,I:NEXT:POKE54273,0:POKE54272,0
  63. 420 FORI=0TO11:POKEV+I,0:NEXT:POKE53280,0:POKE53281,0
  64. 430 PRINT"[147]YOU'VE RAN OUT OF TIME!"
  65. 435 PRINT"THE SUB WILL GO ON TO DESTROY YOUR      COUNTRY!!!!!!"
  66. 440 PRINT"YOU BUNGLING FOOL!!!!!!!"
  67. 450 GOTO5050
  68. 500 POKEV,0:POKEV+1,0:POKEV+10,X:POKEV+11,Y:POKE54296,15
  69. 510 FORI=70TO20STEP-.2:POKE54273,I:NEXT:POKE54273,0:POKE53272,0
  70. 520 FORI=1TO11:POKEV+I,O:NEXT
  71. 530 POKEV+10,0:POKEV+11,O:PRINT"[147]YOU'VE CRASHED INTO YOUR SHIP!!!!!"
  72. 540 PRINT"TOUGH LUCK!"
  73. 550 GOTO5050
  74. 5000 POKEV,0:POKEV+1,0:POKEV+10,X:POKEV+11,Y:POKE54296,15
  75. 5010 FORI=80TO30STEP-.2:POKE54273,I:NEXT:POKE54273,0:POKE54272,0
  76. 5020 FORI=1TO11:POKEV+I,0:NEXT
  77. 5030 POKEV+10,0:POKEV+11,0:PRINT"[147]YOU'VE CRASHED INTO THE SEA!!!!!!"
  78. 5040 PRINT"HARD LINES."
  79. 5050 PRINT"[159]DO YOU WANT ANOTHER GO?"
  80. 5060 GETA$:IFA$="Y"THENRUN
  81. 5070 IFA$<>"N"THEN5060
  82. 5080 PRINT"[156]BYE BYE."
  83. 5090 END
  84. 9000 DATA0,0,0,0,0,0,192,0,0,192,0,0,240,0,0,252,3,0,255,255,192,255,255,252
  85. 9010 DATA63,255,255,63,255,240,31,240,0,63,252,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0
  86. 9020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,99
  87. 9030 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,56,0,0,124,0,3,255,192,127,255
  88. 9040 DATA252,255,255,255,255,255,252,15,255,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  89. 9050 DATA0,0,0,0,0,0,0,0,99
  90. 9060 DATA0,0,0,0,0,0,0,,0,0,0,0,4,8,16,2,8,32,1,8,64,0,136,128,0,127,0,0,127,0
  91. 9070 DATA7,255,240,0,127,0,0,127,0,0,136,128,1,8,64,2,8,32,4,8
  92. 9080 DATA16,0,0,0,0,0,0,0,0,0,0,0,0,99
  93. 9090 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,62,0,0,127,0,0
  94. 9100 DATA127,0,0,127,0,0,62,0,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  95. 9110 DATA99,128,0,32,18,1,8,233,0,4,99,63,1,48,84,32,19,8,1,89,109,22
  96. 9120 DATA8,12,38,0,52,149,128,243,211,99,63,0,128,72,1,19,8,0,89,2,22
  97. 9130 DATA99,0,2,18,76,149,2,64,1,99,4,7,91,16,0,19,8,54,1,109,22
  98.